home *** CD-ROM | disk | FTP | other *** search
/ Asobe! Fotoshock 5.0 ERO / Asobe! Fotoshock 5.0 ERO.iso / pc / main.dxr / ì‡ë†_19_ExphotoOpen.ls < prev    next >
Encoding:
Text File  |  1999-03-23  |  896 b   |  32 lines
  1. property spriteNum, pphotonum
  2. global gmyphotonum, gphotoloclist, grgblist, gsaveddata
  3.  
  4. on beginSprite me
  5.   set pphotonum to the name of the member of sprite spriteNum
  6. end
  7.  
  8. on mouseDown me
  9.   cursor(4)
  10.   go("exphoto")
  11.   updateStage()
  12.   set stagerect to the rect of the stage
  13.   set the rect of window pphotonum to inflate(stagerect, -48, -70)
  14.   set the windowType of window pphotonum to 2
  15.   set the fileName of window pphotonum to "@/dir/" & string(pphotonum)
  16.   open(window pphotonum)
  17.   set gmyphotonum to pphotonum
  18.   if pphotonum = "1003" then
  19.     set gphotoloclist to value(line 11 of gsaveddata)
  20.     sort(gphotoloclist)
  21.     set mlist to [:]
  22.     repeat with m = 1 to count(gphotoloclist)
  23.       set mlist to getAt(gphotoloclist, m)
  24.       sort(mlist)
  25.       if not (findPos(mlist, #rgb) = VOID) then
  26.         set grgblist to getaProp(mlist, #rgb)
  27.       end if
  28.     end repeat
  29.   end if
  30.   cursor(-1)
  31. end
  32.